home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / ms_dos / lib / happysrc / pcpcd.h < prev    next >
Text File  |  1994-08-21  |  7KB  |  115 lines
  1. /****************************************/
  2. /*      HAPPy Pascal compiler           */
  3. /*         P-code ニーモック            */
  4. /*           header                     */
  5. /*                                      */
  6. /*   Copyright (c) H.Asano 1992,1994.   */
  7. /****************************************/
  8.  
  9. /****** P-code ニーモニック 定義
  10.     アルファベット順でなくても構わないけど とりあえず順番に) ******/
  11.  
  12. enum pcdmnc {
  13.              iABI,  /* abolute integer                      */
  14.              iABR,  /* abolute real                         */
  15.              iADI,  /* add integers                         */
  16.              iADR,  /* add reals                            */
  17.              iAND,  /* logical and                          */
  18.              iATN,  /* arctan                               */
  19.              iBAS,  /* load base mark address               */
  20.              iCHK,  /* check value between bounds           */
  21.              iCHR,  /* chr                                  */
  22.              iCKA,  /* check address                        */
  23.              iCOS,  /* cos                                  */
  24.              iCUI,  /* call user procedure indirect         */
  25.              iCUP,  /* call user procedure                  */
  26.              iDEC,  /* decrement                            */
  27.              iDIF,  /* difference                           */
  28.              iDIS,  /* dispose                              */
  29.              iDVI,  /* divide integers                      */
  30.              iDVR,  /* divide reals                         */
  31.              iEJP,  /* extra block jump                     */
  32.              iENT,  /* enter procedure                      */
  33.              iEOF,  /* eof                                  */
  34.              iEOL,  /* eoln                                 */
  35.              iEQU,  /* equal                                */
  36.              iEXP,  /* exp                                  */
  37.              iFJP,  /* jump on false                        */
  38.              iFLO,  /* float integer to real                */
  39.              iFLT,  /* float integer to real                */
  40.              iGEQ,  /* grater than equal                    */
  41.              iGET,  /* get                                  */
  42.              iGRT,  /* grater than                          */
  43.              iINC,  /* increment                            */
  44.              iIND,  /* indexed fetch                        */
  45.              iINN,  /* in operator                          */
  46.              iINT,  /* intersection                         */
  47.              iIOR,  /* logical inclusive or                 */
  48.              iIXA,  /* indeced address                      */
  49.              iLAO,  /* load base-level address              */
  50.              iLAP,  /* load address of procedure            */
  51.              iLCA,  /* load address of constant             */
  52.              iLDA,  /* load level p address                 */
  53.              iLDC,  /* load constant                        */
  54.              iLDO,  /* load contents of base-level address  */
  55.              iLEQ,  /* less than equal                      */
  56.              iLES,  /* less than                            */
  57.              iLOD,  /* load contents of address at level p  */
  58.              iLOG,  /* ln                                   */
  59.              iMMS,  /* make multiple set                    */
  60.              iMOD,  /* modulo                               */
  61.              iMOV,  /* move                                 */
  62.              iMPI,  /* mulutiple integers                   */
  63.              iMPR,  /* mulutiple reals                      */
  64.              iMSI,  /* mask stack indirect                  */
  65.              iMST,  /* mark stack                           */
  66.              iNEQ,  /* not equal                            */
  67.              iNEW,  /* new                                  */
  68.              iNGI,  /* negative integer                     */
  69.              iNGR,  /* negative real                        */
  70.              iNOT,  /* not                                  */
  71.              iNXT,  /* next to                              */
  72.              iNXD,  /* next downto                          */
  73.              iODD,  /* odd                                  */
  74.              iORD,  /* ord                                  */
  75.              iPGE,  /* page                                 */
  76.              iPUT,  /* put                                  */
  77.              iRDC,  /* read char                            */
  78.              iRDI,  /* read integer                         */
  79.              iRDR,  /* read real                            */
  80.              iRET,  /* return from procedure or function    */
  81.              iRLN,  /* readln                               */
  82.              iROU,  /* round                                */
  83.              iRST,  /* reset                                */
  84.              iRWT,  /* rewrite                              */
  85.              iSBI,  /* subtract integers                    */
  86.              iSBR,  /* subtract reals                       */
  87.              iSGS,  /* create singleton set                 */
  88.              iSIN,  /* sin                                  */
  89.              iSQI,  /* square integer                       */
  90.              iSQR,  /* square real                          */
  91.              iSQT,  /* sqrt                                 */
  92.              iSRO,  /* store at base-level address          */
  93.              iSTO,  /* store indirect                       */
  94.              iSTP,  /* stop                                 */
  95.              iSTR,  /* store contents at address at level p */
  96.              iTGT,  /* get text                             */
  97.              iTPT,  /* put text                             */
  98.              iTRA,  /* trace of execution                   */
  99.              iTRC,  /* truncate                             */
  100.              iTRS,  /* reset text                           */
  101.              iTRW,  /* rewrite text                         */
  102.              iUJC,  /* check uncondition jump               */
  103.              iUJP,  /* uncondition jump                     */
  104.              iUNI,  /* union                                */
  105.              iWLN,  /* writeln                              */
  106.              iWRB,  /* write boolean                        */
  107.              iWRC,  /* write char                           */
  108.              iWRF,  /* write real fix                       */
  109.              iWRI,  /* write integer                        */
  110.              iWRR,  /* write real                           */
  111.              iWRS,  /* write string                         */
  112.              iXJP,  /* indexed jump                         */
  113.              iZZZ   /* 終わり                               */
  114. } ;
  115.